home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 2000 February / Macworld (2000-02).dmg / Games World / Hot demos! / Starbound II / AI agents / Gypsum 1.00 / Gypsum 1.00.rsrc / ss$t_147 < prev    next >
Text File  |  1999-10-30  |  681b  |  33 lines
  1. situation planet_start
  2. vars
  3.    i : integer;
  4.    set_t : integer; // new treaty level
  5.    success : boolean;
  6.    
  7. begin
  8.    // set diplomacy
  9.    if  (Diplomacy()) then
  10.       begin
  11.           i := 0;
  12.           while (i < Num_players()) do
  13.               begin
  14.                   if (i >= 0) then
  15.                       begin
  16.                           if (Get_our_treaty_level(i) > 0) then // never end war
  17.                               begin
  18.                                   // desired treaty
  19.                                   set_t := Get_race_attitude(My_race(),i) / ( (148 * 24) / 5);
  20.                                   if (Get_our_treaty_level(i) <> set_t) then
  21.                                 success := Set_our_treaty_offer(i,set_t);
  22.                               end;
  23.                       end;
  24.             i := i + 1;
  25.               end;
  26.       end;
  27.    end;
  28.  
  29.  
  30.  
  31.  
  32.  
  33.